home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / modula2 / module / mindmach.mod < prev    next >
Encoding:
Modula Implementation  |  1995-11-25  |  3.9 KB  |  123 lines
  1.  
  2. IMPLEMENTATION MODULE  MindMachine;
  3. (* Version*: 20.12.89   00:16*)
  4.  
  5. FROM SYSTEM IMPORT VAL;
  6. FROM MegaBrain IMPORT Up,Down,Stay, SetFrequence;
  7. PROCEDURE LC(int:INTEGER):LONGCARD;
  8. BEGIN
  9. RETURN VAL(LONGCARD,int);
  10. END LC;
  11.  
  12. PROCEDURE Change(FreqGang :FrequenzGangARRAY );
  13. VAR i:INTEGER;
  14. BEGIN
  15.  IF (FreqGang[1]<>0) AND  (FreqGang[2]<>0) THEN
  16.  
  17.    SetFrequence(FreqGang[1]);
  18.    IF (FreqGang[1] = FreqGang[2]) OR (FreqGang[3] =0) THEN
  19.       Stay(LC(FreqGang[3]),CHR(FreqGang[4]),CHR(FreqGang[5]),
  20.                        CHR(FreqGang[6]),CHR(FreqGang[7]));
  21.    ELSIF FreqGang[1]<FreqGang[2] THEN
  22.       Up(FreqGang[2],LC(FreqGang[3]),CHR(FreqGang[4]),CHR(FreqGang[5]),
  23.                        CHR(FreqGang[6]),CHR(FreqGang[7]));
  24.    ELSIF FreqGang[1]>FreqGang[2] THEN
  25.       Down(FreqGang[2],LC(FreqGang[3]),CHR(FreqGang[4]),CHR(FreqGang[5]),
  26.                        CHR(FreqGang[6]),CHR(FreqGang[7]));
  27.    END(*IF*);
  28.  END(*IF*);
  29. END Change;
  30.  
  31. PROCEDURE HaraldWessbacher;
  32. BEGIN
  33.    SetFrequence(15);
  34.    Down(7,1,CHR(224),CHR(7),CHR(0),CHR(0));
  35.    Stay(180,CHR(239),CHR(239),CHR(0),CHR(0));
  36.    Down(5,1,CHR(15),CHR(15),CHR(0),CHR(0));
  37.    Stay(120,CHR(232),CHR(232),CHR(0),CHR(0));
  38.    Up(18,6,CHR(224),CHR(7),CHR(0),CHR(0));
  39.  
  40. END HaraldWessbacher;
  41.  
  42. PROCEDURE LutzMehlhorn;
  43. BEGIN
  44.    SetFrequence(15);
  45.    Down(7,2,CHR(231),CHR(231),CHR(0),CHR(0));
  46.    Stay(120,CHR(239),CHR(239),CHR(0),CHR(0));
  47.    Down(5,1,CHR(15),CHR(232),CHR(0),CHR(0));
  48.    Stay(120,CHR(232),CHR(232),CHR(0),CHR(0));
  49.    Up(18,6,CHR(224),CHR(7),CHR(0),CHR(0));
  50.  
  51. END LutzMehlhorn;
  52. PROCEDURE MidsummerNight;
  53. BEGIN
  54.    SetFrequence(15);
  55.    Down(10,1,CHR(231),CHR(231),CHR(0),CHR(0));
  56.    Stay(240,CHR(239),CHR(239),CHR(0),CHR(0));
  57.    Down(8,1,CHR(15),CHR(232),CHR(0),CHR(0));
  58.    Stay(240,CHR(232),CHR(232),CHR(0),CHR(0));
  59.    Stay(120,CHR(15),CHR(232),CHR(0),CHR(0));
  60.    Stay(240,CHR(15),CHR(15),CHR(0),CHR(0));
  61.    Stay(360,CHR(239),CHR(239),CHR(0),CHR(0));
  62.    Up(18,6,CHR(224),CHR(7),CHR(0),CHR(0));
  63. END MidsummerNight ;
  64.  
  65. PROCEDURE EarthHarmonie;
  66. BEGIN
  67.    SetFrequence(08);
  68.    Down(7,1,CHR(231),CHR(231),CHR(0),CHR(0));
  69.    Stay(1,CHR(239),CHR(239),CHR(0),CHR(0));
  70.    Up(8,1,CHR(15),CHR(15),CHR(232),CHR(232));
  71.    Stay(60,CHR(232),CHR(232),CHR(0),CHR(15));
  72.    Stay(60,CHR(15),CHR(15),CHR(232),CHR(232));
  73.    Stay(60,CHR(15),CHR(15),CHR(0),CHR(232));
  74.    Stay(80,CHR(239),CHR(239),CHR(0),CHR(0));
  75.    Up(18,6,CHR(224),CHR(224),CHR(7),CHR(7));
  76.    Stay(0,CHR(239),CHR(239),CHR(0),CHR(0));
  77. END EarthHarmonie;
  78.  
  79. PROCEDURE RuhevolleWachheit;
  80. BEGIN
  81.    SetFrequence(30);
  82.    Down(18,4,CHR(231),CHR(231),CHR(0),CHR(0));
  83.    Down(7,1,CHR(224),CHR(7),CHR(0),CHR(0));
  84.    Up(12,5,CHR(15),CHR(232),CHR(0),CHR(0));
  85.    Down(10,3,CHR(232),CHR(232),CHR(0),CHR(0));
  86.    Down(8,1,CHR(15),CHR(232),CHR(0),CHR(0));
  87.    Down(7,1,CHR(224),CHR(7),CHR(0),CHR(0));
  88.    Stay(180,CHR(239),CHR(239),CHR(0),CHR(0));
  89.    Down(5,1,CHR(15),CHR(15),CHR(0),CHR(0));
  90.    Stay(120,CHR(232),CHR(232),CHR(0),CHR(0));
  91.    Up(18,6,CHR(224),CHR(7),CHR(0),CHR(0));
  92.    Up(30,6,CHR(224),CHR(7),CHR(0),CHR(0));
  93. END RuhevolleWachheit;
  94.  
  95. PROCEDURE AllgBenutzung;
  96. BEGIN
  97.    SetFrequence(30);
  98.    Down(18,1,CHR(231),CHR(231),CHR(0),CHR(0));
  99.    Down(10,9,CHR(239),CHR(239),CHR(0),CHR(0));
  100.    Up(12,5,CHR(15),CHR(232),CHR(0),CHR(0));
  101.    Down(10,3,CHR(232),CHR(232),CHR(0),CHR(0));
  102.    Down(7,1,CHR(15),CHR(232),CHR(0),CHR(0));
  103.    Up(10,2,CHR(15),CHR(15),CHR(0),CHR(0));
  104.    Up(15,4,CHR(239),CHR(239),CHR(0),CHR(0));
  105.    Up(30,6,CHR(224),CHR(7),CHR(0),CHR(0));
  106. END AllgBenutzung ;
  107.  
  108. PROCEDURE Anregung;
  109. BEGIN
  110.    SetFrequence(30);
  111.    Down(18,1,CHR(231),CHR(231),CHR(0),CHR(0));
  112.    Up(22,9,CHR(239),CHR(239),CHR(0),CHR(0));
  113.    Down(15,1,CHR(15),CHR(232),CHR(0),CHR(0));
  114.    Up(25,9,CHR(232),CHR(232),CHR(0),CHR(0));
  115.    Down(15,7,CHR(15),CHR(232),CHR(0),CHR(0));
  116.    Up(20,5,CHR(15),CHR(15),CHR(0),CHR(0));
  117.    Up(22,7,CHR(239),CHR(239),CHR(0),CHR(0));
  118.    Up(25,6,CHR(224),CHR(7),CHR(0),CHR(0));
  119. END Anregung ;
  120.  
  121.  
  122. END MindMachine.
  123.